home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / egyptw.dir / 01715_Script_The Gods < prev    next >
Text File  |  1995-09-13  |  3KB  |  109 lines
  1. global gQuest, gBeenClicked
  2.  
  3. on EGodsRollovers
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(6) then
  7.       repeat while rollover(6)
  8.       EgyptCursor
  9.         puppetsprite 25, true
  10.         set the locH of sprite 25 to 557
  11.         set the locV of sprite 25 to 142
  12.         updatestage
  13.         if the mousedown then
  14.           set GBeenClicked = 1
  15.         else
  16.           if gBeenClicked = 1 then
  17.             set the locH of sprite 25 to 957
  18.             updatestage
  19.             repeat while gBeenClicked = 1
  20.               AnimateLoopFastPause 6, 868, 4, 0, 1, 2
  21.             end repeat
  22.           end if
  23.         end if
  24.       end repeat
  25.       set the locH of sprite 25 to 957
  26.       puppetsprite 25, false
  27.       updatestage
  28.     else
  29.       if rollover(7) then
  30.         repeat while rollover(7)
  31.           ArrowCursor
  32.           set the locH of sprite 8 to 287
  33.           set the locV of sprite 8 to 220
  34.           updatestage
  35.         end repeat
  36.         set the locH of sprite 8 to 987
  37.         updatestage
  38.       else
  39.         if rollover(9) then
  40.           repeat while rollover(9)
  41.             ArrowCursor
  42.             set the locH of sprite 10 to 403
  43.             set the locV of sprite 10 to 245
  44.             updatestage
  45.           end repeat
  46.           set the locH of sprite 10 to 903
  47.           updatestage
  48.         else
  49.           if rollover(11) then
  50.             repeat while rollover(11)
  51.               ArrowCursor
  52.               set the locH of sprite 12 to 417
  53.               set the locV of sprite 12 to 262
  54.               updatestage
  55.             end repeat
  56.             set the locH of sprite 12 to 917
  57.             updatestage
  58.           else
  59.             if rollover(13) then
  60.               repeat while rollover(13)
  61.                 ArrowCursor
  62.                 set the locH of sprite 14 to 403
  63.                 set the locV of sprite 14 to 197
  64.                 updatestage
  65.               end repeat
  66.               set the locH of sprite 14 to 903
  67.               updatestage
  68.             else
  69.               if rollover(41) then
  70.                 HandCursor
  71.               else
  72.                 if rollover(42) then
  73.                   HandCursor
  74.                 else
  75.                   ArrowCursor
  76.                 end if
  77.               end if
  78.             end if
  79.           end if
  80.         end if
  81.       end if
  82.     end if
  83.   end if
  84.   RandomQuestion(gQuest)
  85. end
  86.  
  87. on TheGodsAnimate
  88.   ArrowCursor
  89.   set gAnimationcast1 = 508
  90.   set count = 0
  91.   puppetsound "SE220110.AIF"
  92.   repeat while count < 2 and (the mouseUp)
  93.     set the castnum of sprite 2 = gAnimationcast1 + 1
  94.     updatestage
  95.     wait .5
  96.     if (the mousedown) then 
  97.       exit repeat
  98.     end if
  99.     set count = count + 1
  100.   end repeat
  101.   set the castnum of sprite 2 = gAnimationcast1
  102.   updatestage
  103.   sound fadeout 1, 2*60
  104.   set gBeenClicked = 0
  105. end
  106.  
  107.  
  108.  
  109.